home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Main.dxr / 00003_Switch Mouseenter2.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.2 KB  |  48 lines
  1. property pCastORIG, pCastFB1, pCastFB2
  2. global gtasto
  3.  
  4. on getPropertyDescriptionList
  5.   pippo = the memberNum of sprite the currentSpriteNum
  6.   pluto = pippo + 1
  7.   paperino = pippo + 2
  8.   propertyDescriptionList = [#pCastORIG: [#comment: "Numero elemento del Cast di origine del bottone", #format: #integer, #default: pippo], #pCastFB1: [#comment: "Numero elemento del Cast del primo feedback", #format: #integer, #default: pluto], #pCastFB2: [#comment: "Eventuale numero elemento del Cast del secondo feedback", #format: #integer, #default: paperino]]
  9.   return propertyDescriptionList
  10. end
  11.  
  12. on mouseEnter me
  13.   if the memberNum of sprite the currentSpriteNum <> pCastFB1 then
  14.     gtasto = 0
  15.     set the memberNum of sprite the currentSpriteNum to pCastFB1
  16.     cursor(280)
  17.     updateStage()
  18.   else
  19.     gtasto = 1
  20.   end if
  21. end
  22.  
  23. on mouseLeave me
  24.   if gtasto = 0 then
  25.     set the memberNum of sprite the currentSpriteNum to pCastORIG
  26.     cursor(-1)
  27.     updateStage()
  28.   end if
  29. end
  30.  
  31. on mouseDown me
  32.   if gtasto = 0 then
  33.     cursor(280)
  34.     repeat while the stillDown
  35.       set the memberNum of sprite the currentSpriteNum to pCastFB2
  36.       updateStage()
  37.     end repeat
  38.   end if
  39. end
  40.  
  41. on mouseUp me
  42.   cursor(-1)
  43.   if gtasto = 0 then
  44.   else
  45.     stopEvent()
  46.   end if
  47. end
  48.